﻿Public Class frmPanelAdmin
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim frm As New frmModObjeto
        frm.ShowDialog()


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim frm As New frmModCliente
        frm.ShowDialog()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim frm As New frmModAdmin
        frm.ShowDialog()

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim frm As New frmBorrarObjetosPorFamilia
        frm.ShowDialog()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim frm As New frmAñadirFamilia
        frm.ShowDialog()

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim frm As New frmBorrarClientesPorTipo
        frm.ShowDialog()

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim frm As New frmBorrarTrabajador
        frm.ShowDialog()

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim frm As New frmBorrarFamilia
        frm.ShowDialog()

    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim result2 As Integer = MessageBox.Show("Esto borrará todos los objetos, entregas, clientes, usuarios y el administrador. Se aconseja utilizar esta función previamente a una nueva edición de CUASHOP_MODA. ¿Esta seguro?", "Atencion", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If result2 = DialogResult.Yes Then
            miGestion.reestablecer()
            MessageBox.Show("Se ha reestablecido la base de datos")
        Else


        End If
    End Sub
End Class